MODULE blockm
IMPLICIT NONE
REAL:: A,B,C,root
INTEGER:: I,J,K,L
END MODULE blockm