character(len=*), parameter :: version ='CASAFIELD r'