На чистом фортране конечно нет,
номожно миксовать код, сделать на фортране функцию и вызывать ее в pthread_create.
например у тебя такое
Код
extern "C"
{
void __stdcall FR1(int *m, int *n);
}
при этом в файле bla.for лежит нечто подобное
Код
SUBROUTINE FR1(N,M)
M = N*N
RETURN
END
код можно компилировать связкой gcc + g77 или gcc + ifort или icc + ifort
Кстати в интеловском компиляторе есть поддержка OpenMP посмотри на это.
Компилятор абсолютно бесплатен( для линукса, он то тебе и нужен)