#include #include #include #include #include #include #include #include #include "fortran.h" #include "jwg.h" #define PI 3.141592653589793238462643383276 #define R2D 57.295779513082320876798154814169 #define D2R 0.017453292519943295769236907684