@@ -381,4 +381,112 @@ program demo_replace_all
381
381
! string <-- "technology here, technology there, technology everywhere"
382
382
383
383
end program demo_replace_all
384
- ```
384
+ ```
385
+
386
+
387
+ <!-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -->
388
+ ### ` padl `
389
+
390
+ #### Description
391
+
392
+ Returns a string of length ` output_length ` left padded with ` pad_with ` character if it is provided, otherwise with ` " " ` (1 whitespace).
393
+ If ` output_length ` is less than or equal to the length of ` string ` , padding is not performed.
394
+
395
+ #### Syntax
396
+
397
+ ` string = [[stdlib_strings(module):padl(interface)]] (string, output_length [, pad_with]) `
398
+
399
+ #### Status
400
+
401
+ Experimental
402
+
403
+ #### Class
404
+
405
+ Pure function
406
+
407
+ #### Argument
408
+
409
+ - ` string ` : Character scalar or [[ stdlib_string_type(module): string_type (type)]] .
410
+ This argument is intent(in).
411
+ - ` output_length ` : integer.
412
+ This argument is intent(in).
413
+ - ` pad_with ` : Character scalar of length 1.
414
+ This argument is intent(in) and optional.
415
+
416
+ #### Result value
417
+
418
+ The result is of the same type as ` string ` .
419
+
420
+ #### Example
421
+
422
+ ``` fortran
423
+ program demo_padl
424
+ use stdlib_string_type, only: string_type, assignment(=)
425
+ use stdlib_strings, only : padl
426
+ implicit none
427
+ string_type :: string
428
+
429
+ string = "left pad this string"
430
+ ! string <-- "left pad this string"
431
+
432
+ print *, padl(string, 25, "$") ! "$$$$$left pad this string"
433
+
434
+ string = padl(string, 25)
435
+ ! string <-- " left pad this string"
436
+
437
+ end program demo_padl
438
+ ```
439
+
440
+
441
+ <!-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -->
442
+ ### ` padr `
443
+
444
+ #### Description
445
+
446
+ Returns a string of length ` output_length ` right padded with ` pad_with ` character if it is provided, otherwise with ` " " ` (1 whitespace).
447
+ If ` output_length ` is less than or equal to the length of ` string ` , padding is not performed.
448
+
449
+ #### Syntax
450
+
451
+ ` string = [[stdlib_strings(module):padr(interface)]] (string, output_length [, pad_with]) `
452
+
453
+ #### Status
454
+
455
+ Experimental
456
+
457
+ #### Class
458
+
459
+ Pure function
460
+
461
+ #### Argument
462
+
463
+ - ` string ` : Character scalar or [[ stdlib_string_type(module): string_type (type)]] .
464
+ This argument is intent(in).
465
+ - ` output_length ` : integer.
466
+ This argument is intent(in).
467
+ - ` pad_with ` : Character scalar of length 1.
468
+ This argument is intent(in) and optional.
469
+
470
+ #### Result value
471
+
472
+ The result is of the same type as ` string ` .
473
+
474
+ #### Example
475
+
476
+ ``` fortran
477
+ program demo_padr
478
+ use stdlib_string_type, only: string_type, assignment(=)
479
+ use stdlib_strings, only : padr
480
+ implicit none
481
+ string_type :: string
482
+
483
+ string = "right pad this string"
484
+ ! string <-- "right pad this string"
485
+
486
+ print *, padr(string, 25, "$") ! "right pad this string$$$$"
487
+
488
+ string = padr(string, 25)
489
+ ! string <-- "right pad this string "
490
+
491
+ end program demo_padr
492
+ ```
0 commit comments