anchor.diff:  call fstecr(da,work,-64,11,0,0,0,ASIZE,1,1,18,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,69,.false.) ! IEEE64 with missing
   
   call fst_data_length(2)
  -call fstecr(usa,work,-8,11,0,0,0,ASIZE,1,1,9,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,2,.false.)  ! unsigned short
  -call fst_data_length(2)
  -call fstecr(usa,work,-8,11,0,0,0,ASIZE,1,1,10,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,66,.false.)! unsigned short with missing
  +call fstecr(usa,work,-16,11,0,0,0,ASIZE,1,1,9,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,2,.false.)  ! unsigned short
  +call fst_data_length(2)
  +call fstecr(usa,work,-16,11,0,0,0,ASIZE,1,1,10,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,66,.false.)! unsigned short with missing
   
   call fst_data_length(2)
   call fstecr(sa,work,-8,11,0,0,0,ASIZE,1,1,11,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,4,.false.)  ! signed short
  
positive.code:  print 101,i,fa2(i),da2(i),ia2(i),sa2(i),ba2(i),uia2(i),usa2(i),uba2(i),ca(i),za(i)
  enddo
  1111 continue ! write data into standard file
  inquire(file='missing.fst',EXIST=file_exists)
  if(file_exists) then
    print *,"============= missing.fst exists, write test will be skipped ============"
    goto 2222 ! skip write test if file exists
  endif
  print *,'============= writing into standard file with and without missing values ============'
  
negative.code: integer, dimension(ASIZE) :: uia, uia2
  integer *2, dimension(ASIZE) :: sa, sa2
  integer *1, dimension(ASIZE) :: ba, ba2
  integer *4, dimension(ASIZE) :: bba, bba2
  integer *2, dimension(ASIZE) :: usa, usa2
  integer *1, dimension(ASIZE) :: uba, uba2
  real *4, dimension(ASIZE) :: fa, fa2, fa3
  