    write(*,*) "a = ", a
