subroutine generate_plotfile use mod_usr_methods, only: usr_special_convert use mod_global_parameters use mod_physics, only: phys_te_images use mod_thermal_emission character(len=std_len) :: convert_type_elem integer :: i select case(convert_type) case('tecplot','tecplotCC','tecline') call tecplot(unitconvert) case('tecplotmpi','tecplotCCmpi','teclinempi') call tecplot_mpi(unitconvert) case('vtu','vtuCC') call unstructuredvtk(unitconvert) case('vtumpi','vtuCCmpi') call unstructuredvtk_mpi(unitconvert) case('vtuB','vtuBCC','vtuBmpi','vtuBCCmpi') call unstructuredvtkB(unitconvert) case('vtuB64','vtuBCC64','vtuBmpi64','vtuBCCmpi64') call unstructuredvtkB64(unitconvert) case('pvtumpi','pvtuCCmpi') call punstructuredvtk_mpi(unitconvert) case('pvtuBmpi','pvtuBCCmpi') call punstructuredvtkB_mpi(unitconvert) case('vtimpi','vtiCCmpi') call ImageDataVtk_mpi(unitconvert) case('onegrid','onegridmpi') call onegrid(unitconvert) case('oneblock','oneblockB') call oneblock(unitconvert) case('EIvtiCCmpi','ESvtiCCmpi','SIvtiCCmpi','WIvtiCCmpi','EIvtuCCmpi',& 'ESvtuCCmpi','SIvtuCCmpi','WIvtuCCmpi') ! output synthetic euv emission if (ndim==3 .and. associated(phys_te_images)) then call phys_te_images endif case('user','usermpi') if (.not. associated(usr_special_convert)) then call mpistop("usr_special_convert not defined") else call usr_special_convert(unitconvert) end if case default call mpistop("Error in generate_plotfile: Unknown convert_type") end select end subroutine generate_plotfile