f90 3dmd code