24 implicit double precision(a-h,o-z)
26 integer hrec1(12049),hrec2(12049)
27 real*4 zrec1(12049),zrec2(12049)
28 equivalence(hrec1(1),zrec1(1))
29 equivalence(hrec2(1),zrec2(1))
35 write(6,*)
'program addem' 38 3
format(
'Enter "first" input file: ',$)
41 open(lin1,file=fname,status=
'old',form=
'unformatted')
44 4
format(
'Enter "second" input file: ',$)
46 open(lin2,file=fname,status=
'old',form=
'unformatted')
49 2
format(
'Enter "a+b" output file: ',$)
51 open(lout,file=fname,status=
'new',form=
'unformatted')
53 read(lin1) glamn1,glomn1,dgla1,dglo1,nla1,nlo1,ikind1
54 read(lin2) glamn2,glomn2,dgla2,dglo2,nla2,nlo2,ikind2
58 if(dabs(glomn1-glomn2).gt.1.d-7) stop 1
59 if(dabs(glamn1-glamn2).gt.1.d-7) stop 6
60 if(dabs(dgla1 -dgla2 ).gt.1.d-7) stop 2
61 if(dabs(dglo1 -dglo2 ).gt.1.d-7) stop 3
62 if(nlo1 .ne.nlo2 ) stop 4
63 if(nla1 .ne.nla2 ) stop 7
64 if(ikind1.ne.ikind2) stop 5
66 write(lout) glamn1,glomn1,dgla1,dglo1,nla1,nlo1,ikind1
69 read (lin1) (hrec1(i),i=1,nlo1)
70 read (lin2) (hrec2(i),i=1,nlo1)
72 11 hrec1(i)=hrec1(i)+hrec2(i)
73 10
write(lout) (hrec1(i),i=1,nlo1)
76 read (lin1) (zrec1(i),i=1,nlo1)
77 read (lin2) (zrec2(i),i=1,nlo1)
79 21 zrec1(i)=zrec1(i)+zrec2(i)
80 20
write(lout) (zrec1(i),i=1,nlo1)
program addem
Part of the NADCON5 NADCON5 Core Library , adds one grid to another.