Hi Everyone,
I am compiling a code using FORTRAN 90.
When I make a call to the subroutine, I am getting compilation error.
Mostly syntax error.

Part where errors are occuring:
* nblock, ndim, stepTime, totalTime,
* amplitude, curCoords, velocity, dircos,
* jltyp, sname,
C Write only (modifiable) variable -
* value )
C
include 'vaba_param.inc'
dimension curCoords(nblock,ndim),
1 velocity(nblock,ndim),
2 dircos(nblock,ndim,ndim),
3 value(nblock)

Can't figure where is it going wrong.
Any help would be appreciated

On 4/30/2023 10:24 AM, anubhav deep wrote:
> Hi Everyone,
> I am compiling a code using FORTRAN 90.
> When I make a call to the subroutine, I am getting compilation error.
> Mostly syntax error.
>
> Part where errors are occuring:
> * nblock, ndim, stepTime, totalTime,
> * amplitude, curCoords, velocity, dircos,
> * jltyp, sname,
> C Write only (modifiable) variable -
> * value )
> C
> include 'vaba_param.inc'
> dimension curCoords(nblock,ndim),
> 1 velocity(nblock,ndim),
> 2 dircos(nblock,ndim,ndim),
> 3 value(nblock)
>
> Can't figure where is it going wrong.
> Any help would be appreciated
Appears to be a mixture of FORTRAN 77 syntax and compiler extensions.
In some compilers, * is a comment, in some its an error...depends on
which compiler you're using and what options you have selected. Suggest
switching fully to free form syntax. In free form syntax, you use an &
symbol at the end of a line to designate a continuation line and remove
the "1", "2", "3" from the continuation field in the following lines.

On Sunday, April 30, 2023 at 8:24:32 AM UTC-7, anubhav deep wrote:
> Hi Everyone,
> I am compiling a code using FORTRAN 90.
> When I make a call to the subroutine, I am getting compilation error.
> Mostly syntax error.
>
> Part where errors are occuring:
> * nblock, ndim, stepTime, totalTime,
> * amplitude, curCoords, velocity, dircos,
> * jltyp, sname,
> C Write only (modifiable) variable -
> * value )
> C

Posting tends to lose all leading blanks, making it harder for us.

This seems to be fixed form, so, first, you need to be sure your compiler
is expecting fixed form. Many compilers expect fixed form for files
ending in .f, and free form for .f90, independent of the actual language
standard in use. You can write F2018 in fixed form with .f.

Those * and continuation numbers should be in column 6.

One looks like a continuation of a comment (starting with C),
which I think doesn't work.

On Monday, May 1, 2023 at 4:07:14 AM UTC+12, gah4 wrote:
> On Sunday, April 30, 2023 at 8:24:32 AM UTC-7, anubhav deep wrote:
> > Hi Everyone,
> > I am compiling a code using FORTRAN 90.
> > When I make a call to the subroutine, I am getting compilation error.
> > Mostly syntax error.
> >
> > Part where errors are occuring:
> > * nblock, ndim, stepTime, totalTime,
> > * amplitude, curCoords, velocity, dircos,
> > * jltyp, sname,
> > C Write only (modifiable) variable -
> > * value )
> > C
> Posting tends to lose all leading blanks, making it harder for us.
>
> This seems to be fixed form, so, first, you need to be sure your compiler
> is expecting fixed form. Many compilers expect fixed form for files
> ending in .f, and free form for .f90, independent of the actual language
> standard in use. You can write F2018 in fixed form with .f.
>
> Those * and continuation numbers should be in column 6.
>
> One looks like a continuation of a comment (starting with C),
> which I think doesn't work.
In fixed form * or C in column 1 both begin comments, but in column 6 they both begin continuation lines. That is true in every Fortran dialect from f77 onward but false in free source form in every dialect from f90 onward.