Character (Len=50) :: Fmt
Nyear=10; Nmonth=12
Ny1=1981; Ny2=1990

write (Fmt, "(A,I3.3,A)") "A12,1x,", NYear*NMonth,"(1x,I4.4,I2.2)"
write (*, Fmt) "Station", (iyr,imw, imw=1,Nmonth,iyr=Ny1,Ny2)

End