Lines Matching refs:l

1109         do l=1,irankN
1110           if(icountN(l).gt.0) then  !  I have data to write for rank l
1123             if (l .gt. 0) itmp = int(log10(float(l)))+1
1125             write (fnamer,fmt1) l
1128               open(unit=700+l,file=fnamer,status='unknown', 
1131               open(unit=700+l,file=fnamer,status='unknown')
1143         do l=1,irankN
1144           if(icountN(l).gt.0) then  !  I have data to write for rank l
1146                write(700+l) icountN(l), ndof
1148                write(700+l,*) icountN(l), ndof
1169         do l=1,irankN
1170           if(icountN(l).gt.0) then  !  I have data to write for rank l
1172                write(700+l) icountN(l), ione
1174                write(700+l,*) icountN(l), ione
1194         do l=1,irankN
1195           if(icountN(l).gt.0) close(700+l)
1256           l=myrank+1                ! help me find my mapped files 
1262             if (l .gt. 0) itmp = int(log10(float(l)))+1
1264             write (fnamer,fmt1) l
1273                 open(unit=700+l,file=fnamer,status='unknown', 
1276                 open(unit=700+l,file=fnamer,status='unknown')
1282                 read(700+l) icountRead, ndofRead  ! read it's header
1284                 read(700+l,*) icountRead, ndofRead  ! read it's header
1289                   read(700+l) intvID,(qreadN(k),k=1,ndofRead) ! read a line in binary format
1291                   read(700+l,925) intvID,(qreadN(k),k=1,ndofRead) ! read a line in ascii format
1314                 read(700+l) icountRead, ndofRead  ! read it's header
1316                 read(700+l,*) icountRead, ndofRead  ! read it's header
1320                   read(700+l) intvID,qreadN1 
1322                   read(700+l,925) intvID,qreadN1
1327               close(700+l)