SUBROUTINE SIMQNI(KINDIC,KDIM,XX,JX,GX,,1
     .                 KZS,PZS,PDZS)

      IMPLICIT NONE
      INTEGER KDIM,KINDIC,I
      REAL XX(KDIM),GX(KDIM)
      REAL JX,GNORM

      INTEGER KZS(1)
      REAL PZS(1)
      REAL*8 PDZS(1)

      EXTERNAL SIM4DI

      IF (KINDIC.EQ.4) THEN
       CALL SIM4DI(KDIM,XX,JX,GX)
       GNORM = 0.
       DO I=1,KDIM
         GNORM = GNORM + GX(I)*GX(I)
       ENDDO
       GNORM = SQRT(GNORM)
       WRITE(21,99) JX,GNORM
      ENDIF

 99   FORMAT(2E12.3)

      RETURN
      END