Example -- Variable Typing

subroutine hrgmd

common/aux32/

&hx4(128),hy1(128),hy2(128),

&hy3(128),hy4(128),hz1(128),

&hz2(128),hz3(128),hz4(128)

do 20 i=lft,llt

fac(i)=caqp25*vol3rd(i)*vol3rd(i)

20 fcq(i)=fac(i)*caq100

call hgx

do 30 i=lft,llt

hzap(i)=hz1(i)+hz4(i)

30 hzam(i)=hz1(i)-hz4(i)

return

end

subroutine hgx

common/aux10/

& vz5(128),vz6(128)

common/aux32/

&hx4(128),hy1(128),hy2(128),

&hy3(128),hy4(128),hz1(128),

&hz2(128),hz3(128),hz4(128)

do 10 i=lft,llt

10 hy4(i)=vz1(i)-vz2(i)-vz5(i)+vz6(i)

do 40 i=lft,llt

40 hz4(i)=hgz4(i)*abs(hgz4(i))*fcq(i)

return

end

Previous slide

Next slide

Back to first slide

View graphic version