SUBROUTINE CRMSENA(II,JJ,KK,LL) 
	LOGICAL*1 II
      CALL CRAM3AS
C* 
      ENTRY CRMENA 
C* 
      CALL CRAMEN(II) 
      CALL CRAM(3H AT)
      CALL CRAMLOC(JJ,KK,LL)
      RETURN
      END