Compile error in lsgen.f

[YenochQin]

Hi,
I compile lsgen.f program with

gfortran -o lsgen -fallow-argument-mismatch lsgen.f -L ${ATSP}/lib -lcom -lrad -lang -lcom

and

gfortran -o lsgen  lsgen.f -L ${ATSP}/lib -lcom -lrad -lang -lcom

both report

 4489 |             if (.NOT.Block(rank,pos,i,maskal,ny,lika)) then
      |                           1
Error: Actual argument contains too few elements for dummy argument ‘rank’ (12000060/33000165) at (1)

I compile it using gfortran-12. Can you tell me how to fix it?

Have a nice day!

Yenoch