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