output1.f:19:41:

  992  format("       ("a1,i1,",",a5,")",)
                                         1
Error: Unexpected element ‘)’ in format string at (1)
output1.f:21:44:

  994  format(/," Cardinality of W^m = ",I4,)
                                            1
Error: Unexpected element ‘)’ in format string at (1)
output1.f:18:72:

       write(1,992) gtype,n,mtype
                                                                        1
Error: FORMAT label 992 at (1) not defined
output1.f:20:72:

       write(1,994) last
                                                                        1
Error: FORMAT label 994 at (1) not defined
output1.f:95:19:

  158      if(msimp(d).eq.d) then
                   1
Warning: Legacy Extension: REAL array index at (1)
output1.f:106:19:

  159    do 160 k=1,d
                   1
Warning: Deleted feature: End expression in DO loop at (1) must be integer
output1.f:111:16:

  170      x=tau(w,s)
                1
Warning: Legacy Extension: REAL array index at (1)
output1.f:111:18: