fortran90 which replacement.
still crashing when used inside of translation function.