Error detected in "generate_events run_01"

Dear
expert ,

After I use the command of launch , this error is Jumped out. I think It seems to be related to g77.Out of consideration that you are experts and other users may also encounter this problem, so I still come here to ask you for help

Error detected in "generate_events run_01"
write debug file /home/wsy/programs/MG5_aMC_v2_7_3/PROC_TsingletVL_UFO_0/run_01_tag_1_debug.log
If you need help with this issue please contact us on https://answers.launchpad.net/mg5amcnlo
MadGraph5Error : A compilation Error occurs when trying to compile /home/wsy/programs/MG5_aMC_v2_7_3/PROC_TsingletVL_UFO_0/Source.
 The compilation fails with the following output message:
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o StringCast.o StringCast.f
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o ranmar.o ranmar.f
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o alfas_functions.o alfas_functions.f
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o transpole.o transpole.f
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o invarients.o invarients.f
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o hfill.o hfill.f
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o pawgraphs.o pawgraphs.f
     g77 -O -w -fbounds-check -fPIC -ffixed-line-length-132 -c -o ran1.o ran1.f
     StringCast.f:1:
              module StringCast
              1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f: In program `MAIN__':
     StringCast.f:6:
                interface toStr
                1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f:7:
                  module procedure toStr_int
                  1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f:8:
                  module procedure toStr_real
                  1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f:9:
                  module procedure toStr_real_with_ndig
                  1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f:10:
                  module procedure toStr_real_with_format
                  1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f:11:
                  module procedure toStr_char_array
                  1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f:12:
                end interface toStr
                    ^
     Invalid form for END statement at (^)
     StringCast.f:14:
                contains
                1 2
     Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:18: (continued):
                function trim_ahead(input)
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:19: (continued):
                  character(max_length) :: input
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:20: (continued):
                  character(max_length) :: trim_ahead
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:21: (continued):
                  integer :: i
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:22: (continued):
                  integer :: first_char_index
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:26:
                    if (input(i:i).ne.' ') then
                        1 2
     Invalid token at (2) in expression or subexpression at (1)
     StringCast.f:26:
                    if (input(i:i).ne.' ') then
                                  1 2
     Equality operator at (1) must operate on two scalar (not array) subexpressions, two function invocations returning arithmetic or character scalars, or a combination of both -- but the subexpression at (2) is an array
     StringCast.f:33:
                    trim_ahead((i-first_char_index+1):(i-first_char_index+1))=
                    ^
     Invalid declaration of or reference to symbol `trim_ahead' at (^) [initially seen at (^)]
     StringCast.f:34:
             & input(i:i)
                                                                     1 2
     Invalid token at (2) in expression or subexpression at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:39: (continued):
                end function trim_ahead
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:42: (continued):
                function get_width()
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:43: (continued):
                  character(max_length) :: get_width
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:45: (continued):
                end function get_width
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:47: (continued):
                function toStr_char_array(input)
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:48: (continued):
                  character, dimension(:), intent(in) :: input
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:48:
                  character, dimension(:), intent(in) :: input
                                       ^
     Expression at (^) has incorrect data type or rank for its context
     StringCast.f:48:
                  character, dimension(:), intent(in) :: input
                                        ^
     Expression at (^) has incorrect data type or rank for its context
     StringCast.f:48:
                  character, dimension(:), intent(in) :: input
                  ^
     Fortran 90 feature at (^) unsupported
     StringCast.f:48:
                  character, dimension(:), intent(in) :: input
                                           ^
     Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
     StringCast.f:48:
                  character, dimension(:), intent(in) :: input
                                                 ^
     Invalid form for type-declaration statement at (^)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:49: (continued):
                  character(max_length) :: toStr_char_array
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:50: (continued):
                  integer i
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:53:
                       toStr_char_array(i:i)=input(i)
                       ^
     Invalid declaration of or reference to symbol `tostr_char_array' at (^) [initially seen at (^)]
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:58: (continued):
                end function toStr_char_array
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:60: (continued):
                function toStr_int(input)
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:61: (continued):
                  integer, intent(in) :: input
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:61:
                  integer, intent(in) :: input
                           ^
     Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
     StringCast.f:61:
                  integer, intent(in) :: input
                                 ^
     Invalid form for type-declaration statement at (^)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:62: (continued):
                  character(max_length) :: toStr_int
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:63: (continued):
                  character(max_length) :: tmp, tmp2
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:64: (continued):
                  integer :: i
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:44:
                  write(get_width,'(i20.20)') max_length
                        1
     StringCast.f:66: (continued):
                  write(tmp,'(i'//get_width()//')') input
                                  2
     Invalid declaration of or reference to symbol `get_width' at (2) [initially seen at (1)]
     StringCast.f:26:
                    if (input(i:i).ne.' ') then
                        1
     StringCast.f:66: (continued):
                  write(tmp,'(i'//get_width()//')') input
                                                    2
     Invalid declaration of or reference to symbol `input' at (2) [initially seen at (1)]
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:69: (continued):
                end function toStr_int
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:71: (continued):
                function toStr_real(input)
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:72: (continued):
                  real*8, intent(in) :: input
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:72:
                  real*8, intent(in) :: input
                          ^
     Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
     StringCast.f:72:
                  real*8, intent(in) :: input
                                ^
     Invalid form for type-declaration statement at (^)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:73: (continued):
                  character(max_length) :: toStr_real
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:76: (continued):
                end function toStr_real
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:81: (continued):
                function toStr_real_with_format(input, chosen_format)
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:82: (continued):
                  real*8, intent(in) :: input
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:82:
                  real*8, intent(in) :: input
                          ^
     Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
     StringCast.f:82:
                  real*8, intent(in) :: input
                                ^
     Invalid form for type-declaration statement at (^)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:83: (continued):
                  character(len=*), intent(in) :: chosen_format
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:83:
                  character(len=*), intent(in) :: chosen_format
                                    ^
     Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
     StringCast.f:83:
                  character(len=*), intent(in) :: chosen_format
                                          ^
     Invalid form for type-declaration statement at (^)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:84: (continued):
                  character(max_length) :: toStr_real_with_format
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:85: (continued):
                  character(max_length) :: format_spec
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:86: (continued):
                  integer :: i, w_index
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:89:
                  do i=1,len(chosen_format)
                         ^
     Reference to intrinsic `LEN' at (^) invalid -- one or more arguments have incorrect type
     StringCast.f:89:
                  do i=1,len(chosen_format)
                             1
     StringCast.f:90: (continued):
                   if (chosen_format(i:i).eq.'w') then
                       2
     Invalid declaration of or reference to symbol `chosen_format' at (2) [initially seen at (1)]
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:103: (continued):
                end function toStr_real_with_format
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:105: (continued):
                function toStr_real_with_ndig(input, n_digits)
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:106: (continued):
                  real*8, intent(in) :: input
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:106:
                  real*8, intent(in) :: input
                          ^
     Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
     StringCast.f:106:
                  real*8, intent(in) :: input
                                ^
     Invalid form for type-declaration statement at (^)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:107: (continued):
                  integer, intent(in) :: n_digits
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:107:
                  integer, intent(in) :: n_digits
                           ^
     Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
     StringCast.f:107:
                  integer, intent(in) :: n_digits
                                 ^
     Invalid form for type-declaration statement at (^)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:108: (continued):
                  character(max_length) :: toStr_real_with_ndig
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:109: (continued):
                  character(max_length) :: format_spec
                  2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:111:
                  format_spec = '(F'//TRIM(toStr(max_length))//'.'//
                                    1 2
     Concatenation operator at (1) must operate on two subexpressions of character type, but the subexpression at (2) is not of character type
     StringCast.f:75:
                  toStr_real = toStr_real_with_ndig(input,16)
                               1
     StringCast.f:114: (continued):
                  write(toStr_real_with_ndig,format_spec) input
                        2
     Invalid declaration of or reference to symbol `tostr_real_with_ndig' at (2) [initially seen at (1)]
     StringCast.f:114:
                  write(toStr_real_with_ndig,format_spec) input
                                             ^
     Expression at (^) has incorrect data type or rank for its context
     StringCast.f:12:
                end interface toStr
                1
     StringCast.f:116: (continued):
                end function toStr_real_with_ndig
                2
     Statement at (2) invalid in context established by statement at (1)
     StringCast.f:118:
              end module StringCast
                  ^
     Invalid form for END statement at (^)
     StringCast.f:12:
                end interface toStr
                ^
     End of source file before end of block started at (^)
     <内置>: recipe for target 'StringCast.o' failed
     make: *** [StringCast.o] Error 1
     make: *** 正在等待未完成的任务....

 Please try to fix this compilations issue and retry.
 Help might be found at https://answers.launchpad.net/mg5amcnlo.
 If you think that this is a bug, you can report this at https://bugs.launchpad.net/mg5amcnlo