REAL:: A,B,C,root
INTEGER:: I,J,K,L
COMMON/block1/A,B,C,root,I,J,K,L