Home
last modified time | relevance | path

Searched refs:islv (Results 1 – 25 of 26) sorted by relevance

12

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/
H A Dargos_prep_solvat.F1 logical function argos_prep_solvat(islv,lfnout,boxs,xslv,vslv,
11 integer islv,mwms,mwa,nwms,nwa,mwm,nwm,msa,nsa,lfnout
23 if(islv.eq.0.or.nwms.le.0) goto 9999
54 if(islv.eq.1.or.islv.eq.3) then
56 elseif(islv.eq.2) then
83 if(islv.eq.3) then
108 if(islv.eq.1) write(lfnout,1000) box
110 if(islv.eq.2) write(lfnout,1001) 0.5d0*box(1)
112 if(islv.eq.3) write(lfnout,1002) box
H A Dargos_prepare_solvat.F1 logical function argos_prepare_solvat(islv,lfnout,boxs,xslv,vslv,
11 integer islv,mwms,mwa,nwms,nwa,mwm,nwm,msa,nsa,lfnout
23 if(islv.eq.0.or.nwms.le.0) goto 9999
54 if(islv.eq.1.or.islv.eq.3) then
56 elseif(islv.eq.2) then
83 if(islv.eq.3) then
108 if(islv.eq.1) write(lfnout,1000) box
110 if(islv.eq.2) write(lfnout,1001) 0.5d0*box(1)
112 if(islv.eq.3) write(lfnout,1002) box
H A Dargos_prepare_slvnum.F1 logical function argos_prepare_slvnum(islv,boxs,nwms,box,nwm)
7 integer islv,nwms,nwm
11 if(islv.eq.1) then
14 elseif(islv.eq.2) then
17 elseif(islv.eq.3) then
H A Dargos_prep_slvnum.F1 logical function argos_prep_slvnum(islv,boxs,nwms,box,nwm)
7 integer islv,nwms,nwm
11 if(islv.eq.1) then
14 elseif(islv.eq.2) then
17 elseif(islv.eq.3) then
H A Dargos_prepare_mkrst.F75 integer length,len,islv,idum1,idum2,idum3,idum4,iwater,irenum
1166 islv=0
1180 islv=1
1192 islv=1
1206 islv=2
1220 islv=3
1223 if(islv.eq.0) call md_abort('Illegal solvation type',9999)
1225 write(lfnout,1013) islv,box
1246 if(.not.argos_prepare_slvnum(islv,boxs,nwms,box,mwm))
1268 if(.not.argos_prepare_solvat(islv,lfnout,boxs,dbl_mb(i_xslv),
H A Dargos_prep_mkrst.F74 integer length,len,islv,idum1,idum2,idum3,idum4,iwater,irenum
1157 islv=0
1171 islv=1
1183 islv=1
1197 islv=2
1211 islv=3
1214 if(islv.eq.0) call md_abort('Illegal solvation type',9999)
1216 write(lfnout,1013) islv,box
1237 if(.not.argos_prep_slvnum(islv,boxs,nwms,box,mwm))
1259 if(.not.argos_prep_solvat(islv,lfnout,boxs,dbl_mb(i_xslv),
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/prepar/
H A Dpre_solvat.F1 logical function pre_solvat(islv,lfnout,boxs,xslv,vslv,
11 integer islv,mwms,mwa,nwms,nwa,mwm,nwm,msa,nsa,lfnout
23 if(islv.eq.0.or.nwms.le.0) goto 9999
54 if(islv.eq.1.or.islv.eq.3) then
56 elseif(islv.eq.2) then
83 if(islv.eq.3) then
107 if(islv.eq.1) write(lfnout,1000) box
109 if(islv.eq.2) write(lfnout,1001) 0.5d0*box(1)
111 if(islv.eq.3) write(lfnout,1002) box
H A Dpre_slvnum.F1 logical function pre_slvnum(islv,boxs,nwms,box,nwm)
7 integer islv,nwms,nwm local
11 if(islv.eq.1) then
14 elseif(islv.eq.2) then
17 elseif(islv.eq.3) then
H A Dpre_mkrst.F62 integer length,len,islv,idum1,idum2,idum3,idum4,iwater,irenum
1133 islv=0
1147 islv=1
1159 islv=1
1173 islv=2
1187 islv=3
1190 if(islv.eq.0) call md_abort('Illegal solvation type',9999)
1192 write(lfnout,1013) islv,box
1213 if(.not.pre_slvnum(islv,boxs,nwms,box,mwm))
1235 if(.not.pre_solvat(islv,lfnout,boxs,dbl_mb(i_xslv),dbl_mb(i_vslv),
/dports/science/nwchem-data/nwchem-7.0.2-release/src/prepar/
H A Dpre_solvat.F1 logical function pre_solvat(islv,lfnout,boxs,xslv,vslv,
11 integer islv,mwms,mwa,nwms,nwa,mwm,nwm,msa,nsa,lfnout
23 if(islv.eq.0.or.nwms.le.0) goto 9999
54 if(islv.eq.1.or.islv.eq.3) then
56 elseif(islv.eq.2) then
83 if(islv.eq.3) then
107 if(islv.eq.1) write(lfnout,1000) box
109 if(islv.eq.2) write(lfnout,1001) 0.5d0*box(1)
111 if(islv.eq.3) write(lfnout,1002) box
H A Dpre_slvnum.F1 logical function pre_slvnum(islv,boxs,nwms,box,nwm)
7 integer islv,nwms,nwm
11 if(islv.eq.1) then
14 elseif(islv.eq.2) then
17 elseif(islv.eq.3) then
H A Dpre_mkrst.F62 integer length,len,islv,idum1,idum2,idum3,idum4,iwater,irenum
1133 islv=0
1147 islv=1
1159 islv=1
1173 islv=2
1187 islv=3
1190 if(islv.eq.0) call md_abort('Illegal solvation type',9999)
1192 write(lfnout,1013) islv,box
1213 if(.not.pre_slvnum(islv,boxs,nwms,box,mwm))
1235 if(.not.pre_solvat(islv,lfnout,boxs,dbl_mb(i_xslv),dbl_mb(i_vslv),
/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/
H A Dargos_prepare_solvat.F1 logical function argos_prepare_solvat(islv,lfnout,boxs,xslv,vslv,
11 integer islv,mwms,mwa,nwms,nwa,mwm,nwm,msa,nsa,lfnout
23 if(islv.eq.0.or.nwms.le.0) goto 9999
54 if(islv.eq.1.or.islv.eq.3) then
56 elseif(islv.eq.2) then
83 if(islv.eq.3) then
108 if(islv.eq.1) write(lfnout,1000) box
110 if(islv.eq.2) write(lfnout,1001) 0.5d0*box(1)
112 if(islv.eq.3) write(lfnout,1002) box
H A Dargos_prep_solvat.F1 logical function argos_prep_solvat(islv,lfnout,boxs,xslv,vslv,
11 integer islv,mwms,mwa,nwms,nwa,mwm,nwm,msa,nsa,lfnout
23 if(islv.eq.0.or.nwms.le.0) goto 9999
54 if(islv.eq.1.or.islv.eq.3) then
56 elseif(islv.eq.2) then
83 if(islv.eq.3) then
108 if(islv.eq.1) write(lfnout,1000) box
110 if(islv.eq.2) write(lfnout,1001) 0.5d0*box(1)
112 if(islv.eq.3) write(lfnout,1002) box
H A Dargos_prep_slvnum.F1 logical function argos_prep_slvnum(islv,boxs,nwms,box,nwm)
7 integer islv,nwms,nwm
11 if(islv.eq.1) then
14 elseif(islv.eq.2) then
17 elseif(islv.eq.3) then
H A Dargos_prepare_slvnum.F1 logical function argos_prepare_slvnum(islv,boxs,nwms,box,nwm)
7 integer islv,nwms,nwm
11 if(islv.eq.1) then
14 elseif(islv.eq.2) then
17 elseif(islv.eq.3) then
H A Dargos_prep_mkrst.F74 integer length,len,islv,idum1,idum2,idum3,idum4,iwater,irenum
1157 islv=0
1171 islv=1
1183 islv=1
1197 islv=2
1211 islv=3
1214 if(islv.eq.0) call md_abort('Illegal solvation type',9999)
1216 write(lfnout,1013) islv,box
1237 if(.not.argos_prep_slvnum(islv,boxs,nwms,box,mwm))
1259 if(.not.argos_prep_solvat(islv,lfnout,boxs,dbl_mb(i_xslv),
H A Dargos_prepare_mkrst.F75 integer length,len,islv,idum1,idum2,idum3,idum4,iwater,irenum
1166 islv=0
1180 islv=1
1192 islv=1
1206 islv=2
1220 islv=3
1223 if(islv.eq.0) call md_abort('Illegal solvation type',9999)
1225 write(lfnout,1013) islv,box
1246 if(.not.argos_prepare_slvnum(islv,boxs,nwms,box,mwm))
1268 if(.not.argos_prepare_solvat(islv,lfnout,boxs,dbl_mb(i_xslv),
/dports/lang/perl5.30/perl-5.30.3/
H A Dsv.c5288 const bool islv = SvTYPE(sv) == SVt_PVLV; in Perl_sv_force_normal_flags() local
5290 islv ? SVt_NULL : SvMAGIC(sv) || SvSTASH(sv) ? SVt_PVMG : SVt_PV; in Perl_sv_force_normal_flags()
5300 if (!islv) in Perl_sv_force_normal_flags()
5305 if (islv) { in Perl_sv_force_normal_flags()
5320 assert(!SvLEN(islv ? sv : temp)); in Perl_sv_force_normal_flags()
5325 SvLEN_set(islv ? sv : temp, SvCUR(sv)+1); in Perl_sv_force_normal_flags()
5332 if (!islv) { in Perl_sv_force_normal_flags()
H A Dregcomp.c20832 const bool islv = dsv && SvTYPE(dsv) == SVt_PVLV; in Perl_reg_temp_copy() local
20856 if (islv) { in Perl_reg_temp_copy()
20884 if (!islv) in Perl_reg_temp_copy()
/dports/lang/perl5.32/perl-5.32.1/
H A Dsv.c5326 const bool islv = SvTYPE(sv) == SVt_PVLV; in Perl_sv_force_normal_flags() local
5328 islv ? SVt_NULL : SvMAGIC(sv) || SvSTASH(sv) ? SVt_PVMG : SVt_PV; in Perl_sv_force_normal_flags()
5338 if (!islv) in Perl_sv_force_normal_flags()
5343 if (islv) { in Perl_sv_force_normal_flags()
5358 assert(!SvLEN(islv ? sv : temp)); in Perl_sv_force_normal_flags()
5363 SvLEN_set(islv ? sv : temp, SvCUR(sv)+1); in Perl_sv_force_normal_flags()
5370 if (!islv) { in Perl_sv_force_normal_flags()
/dports/lang/perl5.34/perl-5.34.0/
H A Dsv.c5271 const bool islv = SvTYPE(sv) == SVt_PVLV; in Perl_sv_force_normal_flags() local
5273 islv ? SVt_NULL : SvMAGIC(sv) || SvSTASH(sv) ? SVt_PVMG : SVt_PV; in Perl_sv_force_normal_flags()
5283 if (!islv) in Perl_sv_force_normal_flags()
5288 if (islv) { in Perl_sv_force_normal_flags()
5303 assert(!SvLEN(islv ? sv : temp)); in Perl_sv_force_normal_flags()
5308 SvLEN_set(islv ? sv : temp, SvCUR(sv)+1); in Perl_sv_force_normal_flags()
5315 if (!islv) { in Perl_sv_force_normal_flags()
H A Dregcomp.c21799 const bool islv = dsv && SvTYPE(dsv) == SVt_PVLV; in Perl_reg_temp_copy() local
21823 if (islv) { in Perl_reg_temp_copy()
21851 if (!islv) in Perl_reg_temp_copy()
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/
H A Dsv.c5403 const bool islv = SvTYPE(sv) == SVt_PVLV; in Perl_sv_force_normal_flags() local
5405 islv ? SVt_NULL : SvMAGIC(sv) || SvSTASH(sv) ? SVt_PVMG : SVt_PV; in Perl_sv_force_normal_flags()
5415 if (!islv) in Perl_sv_force_normal_flags()
5420 if (islv) { in Perl_sv_force_normal_flags()
5435 assert(!SvLEN(islv ? sv : temp)); in Perl_sv_force_normal_flags()
5440 SvLEN_set(islv ? sv : temp, SvCUR(sv)+1); in Perl_sv_force_normal_flags()
5447 if (!islv) { in Perl_sv_force_normal_flags()
H A Dregcomp.c21897 const bool islv = dsv && SvTYPE(dsv) == SVt_PVLV; in Perl_reg_temp_copy() local
21921 if (islv) { in Perl_reg_temp_copy()
21959 if (!islv) in Perl_reg_temp_copy()

12