phd-scripts/JMBBM13a/3D_Report/batgen.for