error messages from compiler?

[Ralph_Nelson]

I'm continuing to update very old F77 code. Get the following error meesages:

E:\\ralph\\Macro3d\\Macro3d+CLAMS\\Source Files\\xersve.f(68): error #6221: The assumed-size array must be a dummy argument. [NERTAB]

 integer NERTAB(*), LEVTAB(*), KOUNT(*)

--------------^

E:\\ralph\\Macro3d\\Macro3d+CLAMS\\Source Files\\xersve.f(68): error #6221: The assumed-size array must be a dummy argument. [LEVTAB]

 integer NERTAB(*), LEVTAB(*), KOUNT(*)

-------------------------^

E:\\ralph\\Macro3d\\Macro3d+CLAMS\\Source Files\\xersve.f(68): error #6221: The assumed-size array must be a dummy argument. [KOUNT]

 integer NERTAB(*), LEVTAB(*), KOUNT(*)

------------------------------------^

compilation aborted for E:\\ralph\\Macro3d\\Macro3d+CLAMS\\Source Files\\xersve.f (code 1)


From the following code:
    integer NERTAB(*), LEVTAB(*), KOUNT(*)
 integer lentab
 PARAMETER (LENTAB=10)
 INTEGER LUN(5)
 CHARACTER*(*) LIBRAR, SUBROU, MESSG
 CHARACTER*8 LIBTAB(LENTAB), SUBTAB(LENTAB), LIB, SUB
 CHARACTER*20 MESTAB(LENTAB), MES
 SAVE LIBTAB, SUBTAB, MESTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG


Looks to me like the arraries netrab, levtab and kount have what I call dummy arguements.

Thanks.

[Steven_L_Intel1]

Dummy argument means that it is an argument to a subroutine or function. Do these arrays appear in the argument list for this subroutine or function? You didn't show the most important line.

[Ralph_Nelson]

Oppppsss, sorry bout that

*DECK XERSVE
SUBROUTINE XERSVE(LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL,
+ ICOUNT)
implicit none

but your question told me enough to tell me what to change. I changed the old
integer NERTAB(L*), LEVTAB(*), KOUNT(*)

to
integer NERTAB(LENTAB), LEVTAB(LENTAB), KOUNT(LENTAB)


and the compiler is happy ..... for now. Till I fix something else.


Thanks Steve.