write(*,'(a,i1,a,i1,a,i1,a,i2,a,i3,a)')'! DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',adjustl(params%verrev),', using ',nproc,' processors |'
write(*,'(a,i1,a,i1,a,i1,a,i1,a,i3,a)')'! DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',params%verrev,', using ',nproc,' processors |'