zzj99

program test
      integer :: i
      open(1, file='test.dat', access='stream', form='unformatted')
      do i = 1, 10
         write(1) i
         write(1) dble(i)**2
      end do
      close(1)
end program test

plampite

!Copyright 2024 Paolo Lampitella
!This code is licensed under the terms of the MIT license

MODULE mod_fint
IMPLICIT NONE
INTEGER,  PARAMETER :: IP4 = SELECTED_INT_KIND(9)
INTEGER,  PARAMETER :: WP  = SELECTED_REAL_KIND(15,307)

CONTAINS

Gavinok

fun! s:GroffConceal(group,pat,cchar)
	exe 'syn match '.a:group." '".a:pat."' contained conceal cchar=".a:cchar
endfun
 
if exists('g:groff_greek')
	call s:GroffConceal('roffGreek'  ,'\<alpha\>'		      ,'α')
	call s:GroffConceal('roffGreek'  ,'\<beta\>'		      ,'β')
	call s:GroffConceal('roffGreek'  ,'\<gamma\>'		      ,'γ')
	call s:GroffConceal('roffGreek'  ,'\<delta\>'		      ,'δ')
	call s:GroffConceal('roffGreek'  ,'\<epsilon\>'		      ,'ϵ')