Home
last modified time | relevance | path

Searched refs:keywrd (Results 1 – 25 of 43) sorted by relevance

12

/dports/biology/molden/molden5.8/
H A Dfiles.f3 character keywrd*320, keyori*320 local
9 common /keywrd/ keywrd,keyori local
15 i = index(keywrd,'FILE')
17 i = index(keywrd,'GAUCUB')
36 keywrd(j:j) = ' '
58 common /keywrd/ keywrd,keyori common
89 keywrd(j:j) = ' '
100 common /keywrd/ keywrd,keyori local
109 i = index(keywrd,'MAPFIL')
131 common /keywrd/ keywrd,keyori common
[all …]
H A Dactami.f164 character keywrd*160 local
182 keywrd = str(1:nstr)
183 call tocap(keywrd,nstr)
206 ibr1 = index(keywrd,'(')
207 ibr2 = index(keywrd,')')
272 ii = index(keywrd,'COL')
281 & rdist = reada(keywrd,ires1+1,len(keywrd))*1
319 if (index(keywrd,'CHA').ne.0.or.index(keywrd,'NEG').ne.0.or.
378 ires1 = reada(keywrd,1,len(keywrd))*1
383 ires2 = reada(keywrd,ires2+1,len(keywrd))*1
[all …]
H A Dplotin.f5 common /keywrd/ keywrd,keyori common
6 character*320 keywrd,keyori local
20 if (index(keywrd,'FIG').ne.0) iplot = 0
21 if (index(keywrd,'HPGL').ne.0) iplot = 1
22 if (index(keywrd,'HP23').ne.0) iplot = 2
23 if (index(keywrd,'TEK4').ne.0) iplot = 3
24 if (index(keywrd,'POST').ne.0) iplot = 4
25 if (index(keywrd,'SILLY').ne.0) iplot = 5
26 if (index(keywrd,'OPENGL').ne.0) iplot = 5
27 if (index(keywrd,'XWIN').ne.0) iplot = 6
H A Ddatin.f15 common /keywrd/ keywrd,keyori local
18 character*320 keywrd,keyori local
30 if (keyr(keywrd,'CUT',cut)) then
51 i=index(keywrd,'SPINDENS')
54 i=index(keywrd,'HOMO')
59 i=index(keywrd,'LUMO')
92 common /keywrd/ keywrd,keyori local
93 character*320 keywrd,keyori local
98 i = index(keywrd,'OCCU')
104 i = index(keywrd,'OCCA')
[all …]
H A Dplend.f3 character title*80, keywrd*320, keyhlp*80, keyori*320 local
6 common /keywrd/ keywrd,keyori local
14 keyori(1:320) = keywrd(1:320)
25 if (keywrd(i:i).eq.'('.or.keywrd(i:i).eq.')') then
26 keyori(i+n2:320) = keywrd(i:320-n2)
44 write(iun4,'(''('',a,'') show'')')keywrd(81:120)
46 write(iun4,'(''('',a,'') show'')')keywrd(121:160)
H A Dplanky.f1 subroutine planky(npts1,npts2,npts3,keywrd,defau) argument
7 character*(*) keywrd local
24 if (keyi(keywrd,'CENTER',i)) then
41 if (keyi(keywrd,'LINE',i)) then
115 if (.not.keyr(keywrd,'EDGE',r(1))) then
122 if (.not.keyr(keywrd,'EDZ',r(3))) then
126 if (.not.keyr(keywrd,'EDY',r(2))) then
138 if (keyi(keywrd,'NPTSX',npts1)) then
141 if (keyi(keywrd,'NPTSY',npts2)) then
144 if (keyi(keywrd,'NPTSZ',npts3)) then
[all …]
H A Dplhead.f5 character keywrd*320, keyori*320, title*80 local
10 common /keywrd/ keywrd,keyori local
32 write(iun4,'(''.pt '',a)')keywrd(1:80)
34 write(iun4,'(''.pt '',a)')keywrd(81:160)
42 write(iun4,'(''PU49,18;LB'',a,a,'';'')')keywrd(1:80),etx
43 write(iun4,'(''PU48,18;LB'',a,a,'';'')')keywrd(81:160),etx
H A Doccin.f3 character*320 keywrd,keyori,string local
4 common /keywrd/ keywrd,keyori local
9 i = index(keywrd(ind:320),'=')
10 i1 = index(keywrd(i+ind:320),'(')
11 i2 = index(keywrd(i+ind:320),')')
12 string(1:i2-i1-1) = keywrd(i+ind+i1:i+ind+i2-1)
H A Dwrinfo.f13 character keywrd*320, keyori*320 local
14 common /keywrd/ keywrd,keyori common
30 if (index(keywrd,'WRBAS=').ne.0) then
66 character keywrd*320, keyori*320 local
67 common /keywrd/ keywrd,keyori common
75 if (index(keywrd,'WRBAS=').ne.0) then
H A Dmolden.f128 common /keywrd/ keywrd,keyori local
4468 xr = reada(keywrd,i1+4,len(keywrd))
4473 xr = reada(keywrd,i1+4,len(keywrd))
4478 xr = reada(keywrd,i1+4,len(keywrd))
6780 if (molpot) keywrd = ' Molpot'//keywrd
6781 if (euclid) keywrd = ' Euclid'//keywrd
6784 if (bonds ) keywrd = ' Bonds'//keywrd
6785 if (doori ) keywrd = ' Orient'//keywrd
6787 if (atomic) keywrd = ' Atomic'//keywrd
6791 keywrd = tmpstr(1:16)//keywrd
[all …]
H A Doriin.f5 common /keywrd/ keywrd,keyori common
9 character*320 keywrd,keyori,string local
13 i1 = index(keywrd(i+1:320),'(')
14 i2 = index(keywrd(i+1:320),')')
15 string(1:i2-i1-1) = keywrd(i+i1+1:i+i2-1)
H A Dmpdum.f2 & keywrd,ichadd) argument
6 character*(*) keywrd local
H A Dden3d.f9 character keywrd*320, keyori*320 local
12 common /keywrd/ keywrd,keyori local
27 if (index(keywrd,'TRAN') .ne. 0 ) goto 100
H A Despchrg.f6 character keywrd*320,keyori*320 local
7 common /keywrd/ keywrd,keyori local
50 if (keyi(keywrd,'NUMSURF',nsurf)) then
58 if (.not.keyr(keywrd,'PTDEN',den)) then
69 if (keyr(keywrd,'DIPX',dx).and.keyr(keywrd,'DIPY',dy).and.
70 & keyr(keywrd,'DIPZ',dz)) then
79 if (index(keywrd,'AXIS-X').ne.0) then
82 if (index(keywrd,'AXIS-Y').ne.0) then
85 if (index(keywrd,'AXIS-Z').ne.0) then
118 if (index(keywrd,'CHADD').ne.0) then
[all …]
H A Dmpolefit.f2 & keywrd,ichadd) argument
60 character*(*) keywrd local
89 call setmp(keywrd)
93 if (.not.keyr(keywrd,'MPTOL',toll)) then
224 i = index(keywrd,'MPEQUIV')
226 i1 = index(keywrd(i+1:),'(')
228 i2 = index(keywrd(i+1:),')')
230 keyhlp = keywrd(i+i1+1:i+i2-1)
616 subroutine setmp(keywrd) argument
625 character*(*) keywrd local
[all …]
H A Drdgaus.f491 character keywrd*320, keyori*320 local
492 common /keywrd/ keywrd,keyori local
532 10 open(unit=iund,file=keywrd,access="direct",
571 12 open(unit=iund,file=keywrd(1:linlen(keywrd)),access="direct",
608 open(unit=iund,file=keywrd(1:linlen(keywrd)),access="stream")
996 character keywrd*320, keyori*320 local
997 common /keywrd/ keywrd,keyori common
1019 if (.not.opfil(21,keywrd(1:lenf),lenf,1,1,0)) then
1020 lstr = keywrd(1:lenf)//' non-existent'
/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/
H A Ddsktol.c13 /* Subroutine */ int dsktol_0_(int n__, integer *keywrd, doublereal *dpval) in dsktol_0_() argument
503 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_()
507 errint_("#", keywrd, (ftnlen)1); in dsktol_0_()
668 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_()
671 errint_("#", keywrd, (ftnlen)1); in dsktol_0_()
697 /* Subroutine */ int dsktol_(integer *keywrd, doublereal *dpval) in dsktol_() argument
699 return dsktol_0_(0, keywrd, dpval); in dsktol_()
702 /* Subroutine */ int dskgtl_(integer *keywrd, doublereal *dpval) in dskgtl_() argument
704 return dsktol_0_(1, keywrd, dpval); in dskgtl_()
707 /* Subroutine */ int dskstl_(integer *keywrd, doublereal *dpval) in dskstl_() argument
[all …]
H A Ddskgtl_c.c50 void dskgtl_c ( SpiceInt keywrd, in dskgtl_c() argument
162 dskgtl_ ( (integer *) &keywrd, in dskgtl_c()
H A Ddskstl_c.c50 void dskstl_c ( SpiceInt keywrd, in dskstl_c() argument
187 dskstl_ ( (integer *) &keywrd, in dskstl_c()
/dports/astro/pykep/pykep-2.6/src/third_party/cspice/
H A Ddsktol.c13 /* Subroutine */ int dsktol_0_(int n__, integer *keywrd, doublereal *dpval) in dsktol_0_() argument
503 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_()
507 errint_("#", keywrd, (ftnlen)1); in dsktol_0_()
668 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_()
671 errint_("#", keywrd, (ftnlen)1); in dsktol_0_()
697 /* Subroutine */ int dsktol_(integer *keywrd, doublereal *dpval) in dsktol_() argument
699 return dsktol_0_(0, keywrd, dpval); in dsktol_()
702 /* Subroutine */ int dskgtl_(integer *keywrd, doublereal *dpval) in dskgtl_() argument
704 return dsktol_0_(1, keywrd, dpval); in dskgtl_()
707 /* Subroutine */ int dskstl_(integer *keywrd, doublereal *dpval) in dskstl_() argument
[all …]
H A Ddskgtl_c.c50 void dskgtl_c ( SpiceInt keywrd, in dskgtl_c() argument
162 dskgtl_ ( (integer *) &keywrd, in dskgtl_c()
H A Ddskstl_c.c50 void dskstl_c ( SpiceInt keywrd, in dskstl_c() argument
187 dskstl_ ( (integer *) &keywrd, in dskstl_c()
/dports/cad/alliance/alliance/src/beh/src/
H A Dbeh_vhdlname.c57 static char *keywrd [] = { local
118 beh_addtab (namtab, namealloc (keywrd [i]), NULL, 1, 1);
/dports/science/healpix/Healpix_3.50/src/idl/zzz_external/astron/
H A Dsxaddpar.pro203 keywrd = strmid(header,0,8) ;Header keywords
204 iend = where(keywrd eq 'END ',nfound)
216 keywrd = strmid(header,0,8)
217 iend = where(keywrd eq 'END ',nfound)
255 iloc = where(keywrd EQ loc, nloc)
256 if nloc EQ 0 then iloc = where(keywrd EQ 'HISTORY ', nloc)
274 iloc = where(keywrd[0:iend] EQ loc, nloc)
281 iloc = where(keywrd EQ 'COMMENT ', nloc)
282 if nloc Eq 0 then iloc = where(keywrd EQ 'HISTORY ', nloc)
301 ipos = where(keywrd eq nn,nfound)
[all …]
/dports/www/orangehrm/orangehrm-4.9/symfony/plugins/orangehrmRecruitmentPlugin/web/css/
H A DapplyVacancySuccess.css80 .keywrd{

12