C       special output from rpress, for user's own desired output format

C       Sven Ivansson 1995



	SUBROUTINE UTSPEC (KFWTYP, JF,FREQ,PM0,IDB, 
     $  MHQEFF,FILM, IAZIMI,ALFA1AZIM, FILO,FILG, RHOSOURC,UA2SOURC, 
     $  NHYD,LI, OR, CPRESSW, 
     $  MAINAM,IPOSAM, MAINPH,IPOSPH)
	
	IMPLICIT NONE

	INTEGER KFWTYP, JF,IDB, MHQEFF, IAZIMI, NHYD,LI, IPOSAM, IPOSPH
	REAL*8 FREQ,PM0, ALFA1AZIM, RHOSOURC, OR(*)
	COMPLEX*16 UA2SOURC, CPRESSW(*)
	CHARACTER*32 FILM, FILO,FILG, MAINAM, MAINPH

	REAL*8 PM01M

	PM01M = 1000*PM0   ! reference pressure at 1 m rather than 1 km

C       add here as desired

	RETURN
	END