Fortran程序错误，请大神帮忙看一下

这几行错误代码是
图片说明
运行错误显示：

Compiling flow_input.f

flow_input.f:38:72:

   write (*,111) hs, hd, alpha/km, xm/km, vzero, azero, zs, xf/km, 
                                                                    1

Error: Expected expression in WRITE statement at (1)

flow_input.f:39:20:

                 xd1/km, xd2/km, distmax/km, fz, mx, mz 
                1

Error: Unclassifiable statement at (1)

flow_input.f:40:12:

   format(
        1

Error: Missing format label at (1)

flow_input.f:41:7:

   'hs     hd    alpha  xm    vzero  azero  zs   xf  xd1  xd2 ' ,
   1

Error: Invalid character in name at (1)

flow_input.f:1659:72:

   if(h.eq.0.) pause
                                                                    1

Warning: Deleted feature: PAUSE statement at (1)

flow_input.f:45:72:

  +            xd2/km,distmax/km,fz,mx,mz
                                                                    1

Error: FORMAT label 111 at (1) not defined

之前还可以运行，后面就出现了这个，确认了变量没弄错啊 T.T
希望有懂的大神解答一下