PROGRAM test_std_anemometer_init use anemometer_def call std_anemometer_init() print *, "In main" print *, "std_anemometer_init values ", anemHght, aeroRougStatHght, dispHghtWeatStat, aeroAnemFlg call test_sub() print *, "In main again" print *, "std_anemometer_init values ", anemHght, aeroRougStatHght, dispHghtWeatStat, aeroAnemFlg STOP END PROGRAM