Searched refs:lonps (Results 1 – 1 of 1) sorted by relevance
1 subroutine initps(i,hx,hy,angle,nomprog,longprog,nomps,lonps,icol) argument21 if (lonps.le.0) then34 elseif(lonps.eq.1.and.nomps(1:1).eq.'-') then42 100 if (lonps.le.0) then53 nomfichpost = nomps(1:lonps)54 lonfichpost = lonps59 if (ifich_laser.ge.1000.or.lonps.gt.0) then84 lonps = -1106 lonps = -1110 if (lonps.le.0) then[all …]