It's difficult to say without seeing, at least, the headers for the external routines.
But...
Routine weight has 7 or 8 arguments. This is asking for a broken stack, unless this is actually the case. You would need, at least an interface block, or, more likely, a module to achieve this.
My compiler is commenting on the 7th argument of kldiv. It is poffvect(j) (real) in all calls except the 1st,where it it is 0 (integer). This is probably not important.
The allocate/deallocate pairs look OK to me.
|