Replace Character * with Character(Len=)

Description:  Replace Character * with the equivalent Character(Len =) for string declaration.

State: Implemeted         Author: Mariano Mendez      Version:  Submission Process

Code Example:

   program main

    implicit none

    character*12 cint(12,12)
    character*1 cnmlp(lon,lat,2),rainp(lon,lat,2)

    character*10  UnOld,lolo*5 ='helios'!This  is a comment
    CHARACTER*3 CONST,GREEK
    CHARACTER   CATLOG*10,NAME*20
    character *10 uno,dos
    character hname*20
    Character str*10
    character hname*20, name*50, lname*50, expdesc*50, hist*65
!    no change
    character (len=10)s , str2*36
    character (len=10)s1 , str1='lola'
    character(len=10) :: UnNewString10
    integer i


end program main

    program main

    implicit none

    character(len=12)::cint(12,12)
    character(len=1)::cnmlp(lon,lat,2)
    character(len=1)::rainp(lon,lat,2)

    character(len=10)::UnOld!This  is a comment
    character(len=5)::lolo='helios'!This  is a comment
    character(len=3)::CONST
    character(len=3)::GREEK
    character(len=10)::CATLOG
    character(len=20)::NAME
    character(len=10)::uno
    character(len=10)::dos
    character(len=20)::hname
    character(len=10)::str
    character(len=20)::hname
    character(len=50)::name
    character(len=50)::lname
    character(len=50)::expdesc
    character(len=65)::hist
!    no change
    character (len=10)s , str2*36
    character (len=10)s1 , str1='lola'
    character(len=10) :: UnNewString10
    integer i


end program main


ScreenShots

           

HTML Comment Box is loading comments...