kswitch_v2.3.f:321:39:

          write(iout1,"(a)") trim(short(dum))
                                       1
Error: ‘a’ argument of ‘short’ intrinsic at (1) must have a numeric type
kswitch_v2.3.f:354:44:

               write(iout1,"(a)") trim(short(dum))
                                            1
Error: ‘a’ argument of ‘short’ intrinsic at (1) must have a numeric type
kswitch_v2.3.f:369:44:

               write(iout1,"(a)") trim(short(dum))
                                            1
Error: ‘a’ argument of ‘short’ intrinsic at (1) must have a numeric type
kswitch_v2.3.f:457:40:

           write(iout1,"(a)") trim(short(dum))
                                        1
Error: ‘a’ argument of ‘short’ intrinsic at (1) must have a numeric type
kswitch_v2.3.f:463:40:

           write(iout1,"(a)") trim(short(dum))
                                        1
Error: ‘a’ argument of ‘short’ intrinsic at (1) must have a numeric type
kswitch_v2.3.f:469:40:

           write(iout1,"(a)") trim(short(dum))
                                        1
Error: ‘a’ argument of ‘short’ intrinsic at (1) must have a numeric type
kswitch_v2.3.f:392:21:

       do while (.not.eof(inp1))
                     1
Error: Operand of .not. operator at (1) is REAL(8)