That is right.
Here is the code
program y_m5
Implicit none
! Variables
Integer :: i,j,z,aa,ab,ac,status,x,y
Integer :: jancount, febcount,marcount,aprcount, maycount, juncount, julcount, augcount, sepcount, octcount, novcount, deccount,jmax
Integer, Parameter ...