problem in generating processes

Hello!

whenever i try to generate a process this message appears and I cannot understand what is the problem

Error detected in "generate_events run_01"
write debug file /home/christina/Programs/MG5_aMC_v2_6_3_2/mytestdir/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/christina/Programs/MG5_aMC_v2_6_3_2/mytestdir/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
            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 (^)
            make: *** [<builtin>: StringCast.o] Error 1
            make: *** Waiting for unfinished jobs....

        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

thanks a lot!