addtm2.for: integer*4 inc, it1, it2, iyd1, iyd2 aptst.for: integer ic(2),ilims(2,4),idat(2812) bitmsk.for: integer*2 bytand, byte2, ians, imask, iw7b2, nbsht bitmsk.for:c *** both iand and ishft must have two integer*2 arguments *** bits71.for: integer*2 iit, iiz, imask, imdf, itr, nbsht bits72.for: integer*2 iat, iaz, ical, ifxs, imask, irpac, nbsht bits74.for: integer*2 imask, imsf, irdis, irhvf, irpf, iz1dis, iz2dis, iz2hvf, cmptm2.for: integer*4 iflag, it1, it2, iyd1, iyd2 cmptm2r.for: integer*4 iflag create_spin_rpa.for: integer*4 header(24), ihave_data, ii, kode, maf1_err, modblk(8), create_spin_rpa.for: integer*4 ictnm_rpa(360), ictnp_rpa(360), ictnr_rpa(360), create_spin_rpa.for: integer*4 ictnm_rpa(360), ictnp_rpa(360), ictnr_rpa(360), create_spin_rpa.for: integer*4 iang1, iang2, irpa1, irpa2, jm1, jm2, kode, modblk(8), create_spin_rpa.for: integer*4 icollect_times(4), ictnm_rpa(360), ictnp_rpa(360), deffgs.for: integer*2 dat(2812), iat(8), iaz(8), ical(8), ifxs(8), iit(8), deffrar.for: integer*4 kode deffrar.for: integer*4 iflag diftms.for: integer*4 idms, iflag, it1, it2, iyd1, iyd2 diftmsr.for: integer*4 iflag fndval.for: integer*4 irpa(nvals), jrpa(nvals), ndif, nvals frasetr.for: integer*4 kode, ndiv frasetr.for: integer*4 iflag getmd1.for: integer*2 hder1(100), ical(8), idat(2812), imdf(8), imsf(8), getmd1.for: integer*4 imsh(32,2,8), irpa(32,2,8) getmf1.for: integer*2 idat(2812) getmf1.for: integer*4 maf1_err, it, iyd, l iangln.for: integer*4 function iangln (degsam, ramang, nang, isampl) iangln.for: integer*4 isampl, nang idcodc.for: integer*4 function idcodc (idata, ic) idcodc.for: integer*2 idata idcodc.for: integer*4 ic igtzms.for: integer*4 function igtzms (idet, isampl) igtzms.for: integer*2 iaz(8), iiz(8), itr(8), iztog(4), i7flgs(8,22), igtzms.for: integer*4 idet, isampl imstgs_pvwave_1.for: integer*2 kode, modblk(8) imstgs_pvwave_1.for: integer*2 intp, modblk(8) imstgs_pvwave_1.for: integer*2 cnt(32,2), iicx, intp, lkuims(2,32), modblk(8) imstgs_pvwave_1.for: integer*4 ftms1(4), ifirst(2), iorboft, iorbtime, iorbyd, iwindow, imstgs_pvwave_1.for: integer*2 cnt(32,2), iat(8), iaz(8), ical(8), icde(512,2), isangl.for: integer*4 function isangl (degsam, ramang, isampl) isangl.for: integer*4 isampl lmsnxt.for: integer*4 icollect_times(4), idur, iflag, inc, irun_times(4), lmsnxtr.for: integer*4 iflag lmsset.for: integer*4 icollect_times(4), idur, ied, iehms, iey, ih, im, inc, lmssetr.for: integer*4 kode,ih,im,is lmssetr.for: integer*4 hhmmss lmstss.for: integer*4 icollect_times(4), idms, idur, ie, iflag, inc, lmstssr.for: integer*4 iyd,it,iflag,me,ms lmstst.for: integer*4 icollect_times(4), idur, iflag, inc, irun_times(4), it, lmststr.for: integer*4 iyd,it,iflag masset.for: integer masses(2,4), itab(2,6), im1, im2 mastab.for: integer itable(2,4), jtable(2,4) mastxt.for: integer mass(2,4) mshmsm.for: integer*4 ims, ihr, imn, isc, ms orb_save.for:c integer*2 header(24), i, in, jdat(2812) orb_save.for: integer*2 header(24), i, jdat(2812) orb_save.for: integer*4 in orb_save.for: integer*4 ifirst(2), iflag1, iflag2, ims, iorbyd, iorboft, orboftr.for:c integer*2 in, ndiv orboftr.for: integer*4 in, ndiv orboftr.for: integer*4 ftms(4), iadd, idif, ifirst(2), iorboft, iorbtime, orbsav.for: integer*2 idat(2812) orbsav.for: integer*4 header(24) parini.for: integer pangs(360,2) pitpha.for: integer*2 idat(2812) rbfavg.for:c integer*2 idata rbfavg.for: integer idat(2812) refang.for: integer*2 idat(2812) resltnr.for: integer*4 ndiv rpatgs_pvwave_1.for: integer*2 kode,modblk(8) rpatgs_pvwave_1.for: integer*2 intp, modblk(8) rpatgs_pvwave_1.for: integer*2 ctn(32), iicx, intp, modblk(8) rpatgs_pvwave_1.for: integer*4 ftms1(4),ifirst(2),iorboft,iorbtime,iorbyd,iwindow, sort.for: integer*4 irpa(ndif), ndif spntgs_pvwave.for: integer*4 kode, modblk(8) spntgs_pvwave.for: integer*4 modblk(8) spntgs_pvwave.for: integer*4 ctn(32), iicx, modblk(8) spntgs_pvwave.for: integer*4 ftms1(4),ifirst(2),iorboft,iorbtime,iorbyd,iwindow, spntgs_pvwave.for: integer*2 icde(512,2),idat(2812),jcr(512,2),kcel(512) spntgs_pvwave.for:c integer*2 icde(512,2),ictn(nang),idat(2812),jcr(512,2),jmsh(512) spntgs_pvwave.for: integer*4 idcodc, modblk(8), jrpa(512), jmsh(512), ictn(nang) srtang.for: integer*2 icde(512,2), idat(2812), jcr(512,2), kcel(512) srtang.for: integer*4 i, iang, iangln, ic, ictn(nang), idcodc, ie, is, jflag, srtrp2.for: integer*2 icde(512,2), idat(2812), jcr(512,2) srtrp2.for: integer*4 i, iang, ic, ich, ictn(32), idcodc, idet, ie, igtzms, thms.for: integer*4 hh, hhmmss, mm, ss timdif.for: implicit integer*4 (i) tstbm1.for: integer*2 idata(2812)