Category : Science and Education
Archive   : PFSA.ZIP
Filename : PICOM.FOR

 
Output of file : PICOM.FOR contained in archive : PFSA.ZIP

parameter (ntot=20000, nvar=200, nterm=2500, nch=15,
+ nder=70, ntott=ntot/2, ntermt=nterm/2, mitay=9,
+ ninch=8000, ninl=180, nchpl=127, nlab=10, ndind=9)
implicit integer*2 (i-n)
integer*4 itn,itd,jtn,jtd
integer*4 itime,itbeg
character*1 ha,hn,hc,a,ap,ainpl,pl,pv
common/c/nd,nv,ns,np,nt,line,maxe,maxnt,maxite,lintot
+ ,nb,ndump,lines,linret,itetop,labels,minns,idflg
+ ,itime,itbeg
common/ch/ha(26),hn(10),hc(26),a(nchpl),ap(nchpl)
+ ,ainpl(ninch),pl(nch,nlab),pv(nch,nvar)
common/int1a/ivn(ntot)
common/int1b/ivp(ntot)
common/int1c/jvn(ntott)
common/int1d/jvp(ntott)
common/int4a/linlab(nlab),ipl(nlab),ipv(nvar),idtab(ndind,nvar)
+ ,inpba(ninl),inpea(ninl),ios(nvar),iosi(nvar)
+ ,ider(3,nder),isb(nvar),ise(nvar)
common/int4b/itb(nterm),ite(nterm)
common/int4c/jtb(ntermt),jte(ntermt)
common/int4d/itn(nterm),itd(nterm)
common/int4e/jtn(ntermt),jtd(ntermt)