27 implicit double precision(a-h,o-z)
30 real*4 zrec1(200049),factor
31 equivalence(hrec1(1),zrec1(1))
36 write(6,*)
'program gscale' 39 3
format(
'Enter input file: ',$)
42 open(lin1,file=fname,status=
'old',form=
'unformatted')
45 4
format(
'Enter scale factor:',$)
49 2
format(
'Enter output file: ',$)
51 open(lout,file=fname,status=
'new',form=
'unformatted')
53 read(lin1) glamn1,glomn1,dgla1,dglo1,nla1,nlo1,ikind1
54 write(lout) glamn1,glomn1,dgla1,dglo1,nla1,nlo1,ikind1
58 read (lin1) (hrec1(i),i=1,nlo1)
60 11 hrec1(i)=nint(hrec1(i)*factor)
61 10
write(lout) (hrec1(i),i=1,nlo1)
64 read (lin1) (zrec1(i),i=1,nlo1)
66 21 zrec1(i)=zrec1(i)*factor
67 20
write(lout) (zrec1(i),i=1,nlo1)
program gscale
Part of the NADCON5 NADCON5 Core Library , Scales a grid by a factor.