این برنامه به چه زبانی است؟

[یا صاحب الزمان]

real f,f,f
integer*2 in(321,5,5)
character name*20
common phi,in
data day/6*31,5*30,9/
open(9.file='asd.inp') 1
open(1,file='info')
read(1,(a)')name='