Searched refs:nlong1 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 6966 Subroutine Cutst(line1,nlong1,line2,nlong2) argument
6970 integer, optional, intent( out) :: nlong1 local
6977 if (present(nlong1)) nlong1=0
7007 if(present(nlong1)) nlong1=len_trim(line1)
48003 call cutst(line,nlong1,dire)
48011 call cutst(line,nlong1,label)
48015 call cutst(line,nlong1,label)
48125 integer :: nlong1,iv local
48130 call cutst(line,nlong1,dire)
50582 call cutst(line,nlong1,label)
[all …]
|