!     Neutrale FORTRAN 77 Version mit FORTRAN 90/95 Erweiterungen       
!                                                                       
!     ------------------------------------------------------------------
       SUBROUTINE ISO10300_2014_F_YJ_YA_B2(  &
!     EINGABE:
!      
!     AUSGABE:
      &     YA, IERR, RET)
!     CALCULATION OF THE ROOT ADJUSTMENT FACTOR
!     
!     ------------------------------------------------------------------
!     Erstellung / letzte Aenderung:                                    
!     -----------                                                       
!     Version: KNPLUS 3.0
!     Autor:   KOUTSANTONIS      
!     Datum:   25.01.2016
!                                                                       
!     ------------------------------------------------------------------
!     Uebergabeparameterliste:
!     ------------------------
!     (Name)     (Typ)   (Dim)  (I/O)  (Beschreibung)
!
!     ------------------------------------------------------------------
!     Verwendete Commonbloecke im Programmteil:                         
!     -----------------------------------------                         
!     (Name)      (Beschreibung)
!
!     ------------------------------------------------------------------
!     Aufrufende Programmteile:
!     -------------------------
!     (Name)    (Beschreibung)
!
!     ------------------------------------------------------------------
!     Aufgerufene Programmroutinen:
!     -----------------------------
!     (Name)        (Typ)      (Beschreibung)
!
!     ------------------------------------------------------------------
!     Verwendete Variablen im Programmteil:
!     -------------------------------------
!     (Name)    (Typ) (Dim)      (Art)   (Beschreibung)
!
!     ------------------------------------------------------------------
!     Kategorie dieser Funktion:
!     --------------------------
!     @MATH::INTEGRAL::ETC@
!     ------------------------------------------------------------------
!     Variablenvereinbarung
!     ------------------------------------------------------------------
!                                                                       
      IMPLICIT NONE
! 
      REAL    YA
!     STEUERGROESSEN
      INTEGER IERR, RET
!
!     ------------------------------------------------------------------
!     Einlesen der COMMON-Bloecke ueber INCLUDE-Dateien
!     ------------------------------------------------------------------
      INCLUDE 'dbgon.cmm'
!     ------------------------------------------------------------------
!     Start aktiver Programmteil
!     ------------------------------------------------------------------
      CALL DBGF( DBGT, 'ISO10300_2014_F_YJ_YA_B2')

      YA = 1.075

      CALL DBGR( DBGT, 'YA', YA )
!     ------------------------------------------------------------------
!     Ruecksprung zum Rufprogramm und Ende
!     ------------------------------------------------------------------
 9999 CONTINUE
      CALL DBGRET( DBGT, IERR ) 
      IF (IERR .NE. 0) THEN
         CALL MESSAGE( 'ERR_ISO10300_2014_F_YJ_YA_B2','E', ' ', 0, 0 )
         CALL MESSOUT( RET )
      ENDIF
      RETURN
END