SUBROUTINE CRMSNA(II,JJ,KK,LL) 
	LOGICAL*1 II
      CALL CRM3AS
C* 
	CALL CRMENA(II,JJ,KK,LL)
      RETURN
      END 
	SUBROUTINE CRMENA(II,JJ,KK,LL)
	LOGICAL*1 II
      CALL CRAMEN(II) 
      CALL CRAM(3H AT)
      CALL CRMLOC(JJ,KK,LL)
      RETURN
      END