/[lmdze]/trunk/bibio/lnblnk.f
ViewVC logotype

Diff of /trunk/bibio/lnblnk.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 104 by guez, Wed Mar 5 14:57:53 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 25  INTEGER FUNCTION lnblnk(letter) Line 25  INTEGER FUNCTION lnblnk(letter)
25    IMPLICIT NONE    IMPLICIT NONE
26    INTEGER i, imax    INTEGER i, imax
27    PARAMETER (imax=256)    PARAMETER (imax=256)
28    CHARACTER *256 letter    CHARACTER(len=256) letter
29    
30    i = 0    i = 0
31    
Legend:
Removed from v.104  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21