Lines Matching refs:JMOL
1129 JMOL=0
1136 JMOL=JMOL+1
1137 X(JMOL)=0.d0
1138 Y(JMOL)=0.d0
1139 Z(JMOL)=0.d0
1141 +' put molecule ',JMOL,' at zero ref.point'
1145 JMOL=JMOL+1
1146 X(JMOL)=XRS(J)
1147 Y(JMOL)=YRS(J)
1148 Z(JMOL)=ZRS(J)
1152 if(TASKID.eq.MAST)write(*,*)JMOL,' molecules are distributed'
1223 JMOL=0
1230 JMOL=JMOL+1
1231 X(JMOL)=0.d0
1232 Y(JMOL)=0.d0
1233 Z(JMOL)=0.d0
1235 +' put molecule ',JMOL,' at zero ref.point'
1239 JMOL=JMOL+1
1240 X(JMOL)=XRS(J)
1241 Y(JMOL)=YRS(J)
1242 Z(JMOL)=ZRS(J)
1246 if(TASKID.eq.MAST)write(*,*)JMOL,' molecules are distributed'