Fortran 77 converting string to array of strings

[wein3967]

I have been given the task converting some Fortran 77 code. I have a main program that calls a subroutine like so:

CALL GOD1D(GASP(IFPTN),...)

Now, GASP is a large string array, so it should be passing a single element of position IFPTN, which is a string. The GOD1D subroutine looks like:

SUBROUTINE GOD1D(GAS,...)

In the GOD1D there is a dimension statement like so:

CHARACTER*3 GAS(1:799)

So, it appears that this dimension statement converts a passed single string into an array of a specified length and also populates the entire array with the same string value. Is that how the process will always work? I have several variables that seem to under go this same system. Thanks for your help.

 

[xwb]

Declare GAS as

CHARACTER *(*) GAS