Subroutine vom_save_dayyear


VARIABLES

dailyformatcharacter(len=60) 
?  
1919, 1927
strcharacter(len=3) 
?  
1920, 1925, 1927
tmpreal*8(:)
?  
1921