Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine lonlat_2_ABI_XY(lon,lat,lambda0,x,y,mask)implicit nonereal(REAL64),intent(in)::lon,latreal(REAL64),intent(in)::lambda0real(REAL64),intent(out)::x,yinteger,intent(out)::maskreal(REAL64)::theta_creal(REAL64)::e2,rc,Sx,Sy,Sz,treal(REAL64)::a,b,Hreal*8::deltaa=r_eq;b=r_pol;H=H_sattheta_c=atan((b/a)**2.d0*tan(lat))e2=1.d0-(b/a)**2.d0! (a^2-b^2)/a^2rc=b/sqrt(1.d0-e2*cos(theta_c)**2.d0)Sx=H-rc*cos(theta_c)*cos(lon-lambda0)Sy=-rc*cos(theta_c)*sin(lon-lambda0)Sz=rc*sin(theta_c)x=-asin(Sy/sqrt(Sx*Sx+Sy*Sy+Sz*Sz))y=atan(Sz/Sx)t=H*(H-Sx)-(Sy*Sy+(a/b)**2.d0*Sz*Sz)if(t<0)thenmask=1elsemask=0end if end subroutine lonlat_2_ABI_XY