Variable type mismatch in blkgen.f

sanjayg0 / feappv

FEAPpv -- free personal version of the FEAP

BSD 3-Clause "New" or "Revised" License

81 stars 44 forks source link

Variable type mismatch in blkgen.f #3

Closed keweili closed 5 years ago

keweili commented 5 years ago

Hi, when I was compiling this version of FEAPpv on another computer, and there is an error in the file /program/blkgen.f. The variable "td(15)" is declared as a "real*8" type on line 43 , and then it is passed as the first argument to the subroutine ublk() near line 350. However, the first argument in that subroutine is declared as an "integer" on 47 line of /user/ublk.f. Plesae check and advise.

sanjayg0 commented 5 years ago

This a typo in version 4.1. It has been fixed on the devel branch. You just need to remove the argument td on the calling line. I'll update master branch on git in a minute.