Subroutine Write_1D_Senslp (Fname)
! Real, Dimension (Nst) :: Sen_PDSI, Pro_PDSI
Integer, Parameter :: Npar=2
Integer :: ist, isev
Real :: Xlon(Nst), Xlat(Npar), X(Nst,Npar)
Character (Len=*) :: Fname
Character (Len=255) :: Var_ln

Do ist=1, Nst; Xlon(ist)=ist; Enddo   ! Mang Lon
Do isev=1, Npar; Xlat(isev)=isev; Enddo ! Mang Lat

X(:,1)=Sen_PDSI(:); X(:,2)=Pro_PDSI; 
Var_ln="Sen's Slopes and p-values of PDSI's Trend"
Call wr_ncdf_2d (trim(Fname), Xlon, Xlat, Nst, Npar, X, "Sen", trim(Var_ln), "per-mon", "Stn", "Paremeter", Miss)

End Subroutine Write_1D_Senslp