subroutine mad_init_f
    implicit none
    
#ifdef _IFORT
    open(unit=6,RECL=240)
#endif

end subroutine mad_init_f