INTERFACE SUBROUTINE LWU &&PABCU &&USE JPRB USE NG1P1
INTERFACE SUBROUTINE LWVB PFLUC &&USE JPRB USE NTRA
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
!$Id!INTEGER NUA INTEGER NTRA INTEGER Ninter INTEGER NG1
!$Id!Valid and equivalent for either free source form or fixed source form INTEGER i1_fin INTEGER i2_fin!cc PARAMETER(i1_deb=21, i1_fin=40)!cc PARAMETER(i2_deb
INTERFACE SUBROUTINE JPRB USE NUA