Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,20 @@
+      SUBROUTINE arcmak(nfreq,nchh,nradd)
+      INTEGER nchh,nradd,nfreq(nchh),MC,NWK,MAXINT
+      PARAMETER (MC=512,NWK=20,MAXINT=2147483647)
+      INTEGER j,jdif,minint,nc,nch,nrad,ncum,ncumfq(MC+2),ilob(NWK),
+     *iupb(NWK)
+      COMMON /arccom/ ncumfq,iupb,ilob,nch,nrad,minint,jdif,nc,ncum
+      SAVE /arccom/
+      if(nchh.gt.MC)pause 'MC too small in arcmak'
+      if(nradd.gt.256)pause 'nradd may not exceed 256 in arcmak'
+      minint=MAXINT/nradd
+      nch=nchh
+      nrad=nradd
+      ncumfq(1)=0
+      do 11 j=2,nch+1
+        ncumfq(j)=ncumfq(j-1)+max(nfreq(j-1),1)
+11    continue
+      ncumfq(nch+2)=ncumfq(nch+1)+1
+      ncum=ncumfq(nch+2)
+      return
+      END