/dports/science/mdynamix/md528/ |
H A D | setup.f | 140 TFACT(ITYP) = ENERF*TEMPF*FNSS1/(NSITS(ITYP)*NSPEC(ITYP)) 142 TFACT(ITYP)=TFACT(ITYP)*FNSS3/(FNSS3-NRCON(ITYP)) 167 IADDR (ITYP+1) = IADDR (ITYP)+NSPEC(ITYP) ! molecules 168 ISADR (ITYP+1) = ISADR (ITYP)+NSITS(ITYP) ! sites 169 ISADDR(ITYP+1) = ISADDR(ITYP)+NSITS(ITYP)*NSPEC(ITYP) ! atoms 183 + ' type ',ITYP,' - ',NAMOL(ITYP)(1:16),' Nmol',NSPEC(ITYP), 215 + ITYP,ISADR(ITYP),IADDR(ITYP),ISADDR(ITYP) 305 IML=ISADDR(ITYP)+(I-1)*NSITS(ITYP) 650 if(ITYP.lt.NTYPES)NWRK1=NRB(ITYP+1) 755 NRNOD(ITYP)=mod(ITYP-1,NUMTASK) [all …]
|
H A D | main.f | 240 do ITYP=1,NTYPES 247 TOTMAS = TOTMAS+SUMMAS(ITYP)*NSPEC(ITYP) 248 NAME(ITYP)=NAMOL(ITYP)(1:6) 312 NRBND=NRBND+NRB(ITYP)*NSPEC(ITYP) ! Num. of bonds 313 NRANG=NRANG+NRA(ITYP)*NSPEC(ITYP) ! Num. of angles 314 NRTOR=NRTOR+NRT(ITYP)*NSPEC(ITYP) ! Num. of dihedrals 321 FNST = FNST+3*NSPEC(ITYP)*NSITS(ITYP) 324 + FNST=FNST-NRCON(ITYP)*NSPEC(ITYP) 325 if(NSITS(ITYP).eq.2)FNSTR=FNSTR+2.*NSPEC(ITYP) 326 if(NSITS(ITYP).ge.3)FNSTR=FNSTR+3.*NSPEC(ITYP) [all …]
|
H A D | aver.f | 64 EBOND(ITYP)= EBOND(ITYP)+EBM 86 EANGL(ITYP) = EANGL(ITYP)+EAM 108 ETORS(ITYP) = ETORS(ITYP)+ETM 431 X,NAME(ITYP),NAME(JTYP) 525 do ITYP=1,NTYPES 723 DO ITYP = 1,NTYPES 784 DO ITYP = 1,NTYPES 1041 do ITYP=1,NTYPES 1084 do ITYP=1,NTYPES 1085 IC1=40+9*ITYP [all …]
|
H A D | service.f | 48 do ITYP=1,NTYPES 49 TEMPR(ITYP)=0. 52 ITYP=ITYPE(I) 63 TEMPR(ITYP) = TEMPR(ITYP)+0.5D0*VSC ! kin. energy 81 do ITYP=1,NTYPES 82 TEMPR(ITYP) = EKIN(ITYP)*TFACT(ITYP) 85 do ITYP=1,NTYPES 86 write(*,*)ITYP,TEMPR(ITYP) 871 ITYP=ITYPE(I) 919 ISHIFT=ISADDR(ITYP)+(IM-1)*NSITS(ITYP) [all …]
|
H A D | mdee.f | 94 DO I = ISADR(ITYP)+1,ISADR(ITYP+1) 115 DO ISP = ISADDR(ITYP)+1,ISADDR(ITYP+1) 127 SPEEI(ITYP)=SPET 277 ITYP=ITYPE(I) 321 if(IEE(ITYP).eq.0.and.NSITS(ITYP).gt.1)then 329 ISP = ISADDR(ITYP)+(IM-1)*NSITS(ITYP)+IS-ISBEG+1 330 JSP = ISADDR(ITYP)+(IM-1)*NSITS(ITYP)+JS-ISBEG+1 455 ITYP=ITYPE(ISP) 639 EBOND(ITYP) = EBOND(ITYP)+EBM 662 EANGL(ITYP) = EANGL(ITYP)+EAM [all …]
|
H A D | mdstep.f | 90 ITYP = ITYPE(I) 102 ITYP = ITYPE(I) 347 ITYP = ITYPE(I) 365 ITYP = ITYPE(I) 406 ITYP = ITYPE(I) 425 ITYP = ITYPE(I) 985 IBEG=ISADDR(ITYP)+1+NSITS(ITYP)*(IMOL-IADDR(ITYP)-1) 986 IEND=ISADDR(ITYP)+NSITS(ITYP)*(IMOL-IADDR(ITYP)) 1070 NRTSC(ITYP) = NRTSC(ITYP)+1 1086 NRTSC(ITYP) = NRTSC(ITYP)+1 [all …]
|
H A D | pimd.f | 99 ITYP = ITYPE(I) 101 if(LMOVE(ITYP))then 118 ITYP = ITYPE(I) 132 ITYP = ITYPE(I) 181 ITYP = ITYPE(I) 197 ITYP = ITYPE(I) 389 ITYP=ITS(IS) 948 IBEG=ISADDR(ITYP)+1+NSITS(ITYP)*(IMOL-IADDR(ITYP)-1) 949 IEND=ISADDR(ITYP)+NSITS(ITYP)*(IMOL-IADDR(ITYP)) 1033 NRTSC(ITYP) = NRTSC(ITYP)+1 [all …]
|
H A D | restart.f | 514 do ITYP=1,NTYPES 515 if(LIST(ITYP).ne.0)NSDP=NSDP+NSPEC(ITYP)*NSITS(ITYP) 530 ITYP=ITYPE(I) 531 if(LIST(ITYP).ne.0)then 614 do ITYP=1,NTYPES 622 + NM(IS),SX(N),SY(N),SZ(N),NAME(ITYP)(1:4),ITYP,'h ',NM(IS)(1:2), 646 ITYP=ITM(I) 654 do ITYP=1,NTYPES 655 if(LIST(ITYP).ne.0)NSDP=NSDP+NSPEC(ITYP)*NSITS(ITYP) 662 ITYP=ITYPE(I) [all …]
|
H A D | forces.f | 126 do ITYP=1,NTYPES 127 if(IPOT(ITYP).eq.1.or.IPOT(ITYP).eq.2)call STRBND(ITYP) 542 if(NAME(ITYP)(1:3).ne.'H2O'.and.NAME(ITYP)(1:3).ne.'h2o')then 947 PES141(ITYP)=PES141(ITYP)+EE1 963 PSR141(ITYP) = PSR141(ITYP)+ESR 1158 PES141(ITYP) = PES141(ITYP)+EE1 1174 PSR141(ITYP) = PSR141(ITYP)+ESR 1445 SPEEI(ITYP)=SPET 1565 SPEE(ITYP) = SPEE(ITYP)+EES 1655 SPEE(ITYP) = SPEE(ITYP)+EES [all …]
|
/dports/science/mdynamix/md528/old/ |
H A D | tcf.f | 48 NSS = NSITS(ITYP) 49 IF(N1(ITYP).LT.1 .OR.N2(ITYP).LT.1.or. 50 + N1(ITYP).GT.NSS.OR.N2(ITYP).GT.NSS)then 52 +ITYP,' Sites ',N1(ITYP),N2(ITYP),' of ',NSS 242 +NAME(ITYP) 343 +NAME(ITYP) 391 +NAME(ITYP) 436 if(N1(ITYP).ne.N2(ITYP))then 484 if(N1(ITYP).ne.N2(ITYP))then 487 +NAME(ITYP) [all …]
|
/dports/science/devisor/devisor2.1/data/ |
H A D | geometry.prm | 7 ITYP NSPLINE NPAR 18 ITYP NSPLINE NPAR 27 ITYP NSPLINE NPAR 36 ITYP NSPLINE NPAR 45 ITYP NSPLINE NPAR 54 ITYP NSPLINE NPAR 67 ITYP NSPLINE NPAR 76 ITYP NSPLINE NPAR 85 ITYP NSPLINE NPAR 94 ITYP NSPLINE NPAR [all …]
|
/dports/science/libccp4/libccp4-6.5.1/fortran/ |
H A D | parser.f | 188 + TYPE(ITYP(I)), 228 INTEGER ITYP(*) 351 INTEGER ITYP(*) 361 IF (ITYP(N).EQ.2) THEN 363 ELSE IF (ITYP(N).EQ.1) THEN 406 INTEGER ITYP(*) 420 IF (ITYP(N).EQ.2) THEN 1481 INTEGER ITYP(*) 1492 IF (ITYP(N).EQ.2) THEN 1546 INTEGER ITYP(*) [all …]
|
/dports/science/mdynamix/md528/tranal/ |
H A D | trtcf.f | 54 IF(N1(ITYP).LT.1 .OR.N2(ITYP).LT.1.or. 55 + N1(ITYP).GT.NSS.OR.N2(ITYP).GT.NSS)then 57 +ITYP,' Sites ',N1(ITYP),N2(ITYP),' of ',NSS 185 +NAME(ITYP) 240 +NAME(ITYP) 286 +NAME(ITYP) 334 +NAME(ITYP) 379 if(N1(ITYP).ne.N2(ITYP))then 382 +NAME(ITYP) 427 if(N1(ITYP).ne.N2(ITYP))then [all …]
|
H A D | order.f | 121 ITYP=ITS(NC(J)) 122 NML=NSPEC(ITYP) 127 IC = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NC(J)-ISADR(ITYP) 128 IH = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NH(J)-ISADR(ITYP) 134 IC2 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NC(J1)-ISADR(ITYP) 135 IH2 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NH(J1)-ISADR(ITYP) 148 I3 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+ORF1(J)-ISADR(ITYP) 149 I4 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+ORF2(J)-ISADR(ITYP) 201 IC = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NC(J)-ISADR(ITYP) 202 IH = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NH(J)-ISADR(ITYP) [all …]
|
H A D | tranal_base.f | 191 if(IPRINT.ge.8)write(*,*)ITYP,NSPEC(ITYP),NSITS(ITYP) 268 NAME(ITYP)=NAMOL(ITYP)(1:6) 276 ISADR(ITYP+1) = ISADR(ITYP)+ NSITS(ITYP) ! site addr 277 ISADDR(ITYP+1) = ISADDR(ITYP)+NSPEC(ITYP)*NSITS(ITYP) ! atom adr 278 IADDR (ITYP+1) = IADDR (ITYP)+NSPEC(ITYP) ! mol. addr 282 NSTOT = NSTOT + NSPEC(ITYP)*NSITS(ITYP) 285 +' type ',ITYP,' Nmol',NSPEC(ITYP), 287 do J=ISADR(ITYP)+1,ISADR(ITYP+1) 320 SUMMAS(ITYP)=1.*NSITS(ITYP) 326 + ITYP,NAME(ITYP),NSITS(ITYP),NSPEC(ITYP) [all …]
|
H A D | torsion.f | 63 do ITYP=1,NAG ! type of torsion 64 do N=IADT(ITYP)+1,IADT(ITYP+1) 117 IGS(ITYP)=IGS(ITYP)+1 119 ITRAN(ITYP)=ITRAN(ITYP)+1 121 NPOP(ITYP,NARG)=NPOP(ITYP,NARG)+1 123 +ITYP,IMOL,IST,JST,KST,LST,ARG*180/PI
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | her1pro.F | 3480 ITYP = ITYP + 1 3582 ITYP = ITYP + 1 4039 ITYP = ITYP + 1 4053 ITYP = ITYP + 1 4101 ITYP = ITYP + 1 4145 ITYP = ITYP + 1 4169 ITYP = ITYP + 1 4232 ITYP = ITYP + 1 4257 ITYP = ITYP + 1 4277 ITYP = ITYP + 1 [all …]
|
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
H A D | fleche.f | 1 SUBROUTINE FLECHE(TAILL,USDIM,VAVA,VIVI,XX0,YY0,ITYP,EPS argument 10 IF (ITYP.LT.0) THEN 15 ITYP2 = -ITYP 21 ITYP2 = ITYP 39 IF (ITYP.LT.0) THEN 50 IF (ITYP.LT.0) THEN 63 IF (ITYP.LT.0) THEN
|
/dports/graphics/xd3d/xd3d-8.3.1/src/X/ |
H A D | type_term.f | 1 SUBROUTINE TYPE_TERM(ITYP) argument 4 ITYP = 0 6 ITYP = 1
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr41924.f90 | 9 INTEGER :: ITYP local 12 DO ITYP = 1 , 100 13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr41924.f90 | 9 INTEGER :: ITYP local 12 DO ITYP = 1 , 100 13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr41924.f90 | 9 INTEGER :: ITYP local 12 DO ITYP = 1 , 100 13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr41924.f90 | 9 INTEGER :: ITYP local 12 DO ITYP = 1 , 100 13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr41924.f90 | 9 INTEGER :: ITYP local 12 DO ITYP = 1 , 100 13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr41924.f90 | 9 INTEGER :: ITYP local 12 DO ITYP = 1 , 100 13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
|